      FUNCTION  CFCT(X)                                                 00010000
      IMPLICIT REAL*8(A-H,O-Z)                                          00020000
      COMPLEX*16 Z,D                                                    00030000
      COMMON  /R2INTC/D(6),CF,M,N,IST                                   00040000
      AL=CF                                                             00050000
      B=D(6)                                                            00060000
      Z=(0.D0,0.D0)                                                     00070000
      DO 1 K=1,5                                                        00080000
      Z=Z+D(K)/(X/AL+N+M+2)**K                                          00090000
    1 CONTINUE                                                          00100000
      A=DEXP(DREAL(Z))                                                  00110000
      AA=A*DCOS(DIMAG(Z))                                               00120000
      IF (IST.EQ.-1) AA=A*DSIN(DIMAG(Z))                                00130000
      CFCT=AA*(X/AL+N+M+2)**B                                           00140000
      RETURN                                                            00150000
      END                                                               00160000
